home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World's Largest Collection of Windows Software
/
The World's Largest Collection of Windows Software - Disc 2.iso
/
games
/
_b1
/
fibsw121
/
fibslogn.scr
< prev
next >
Wrap
Text File
|
1994-05-31
|
2KB
|
68 lines
@echo 0
@rem ************************************************************************
@rem **** fibslogn.scr - Logs in to FIBS (dial-up only) -- See ***
@rem **** winsock.wcw for winsock login procedure. ***
@rem **** Basically, this procedure (1) tracks the ***
@rem **** password prompt in order to perform password ***
@rem **** blanking during manual login, and (2) decides ***
@rem **** whether this is a guest login or not. ***
@rem **** NB: guest logins are detected by watching for ***
@rem **** a transition to online state from login prompt ***
@rem **** without an intervening password prompt! Crude ***
@rem **** but effective. ***
@rem ************************************************************************
@rem Wait for the Login prompt.
@echo "\r\n** Logging in to FIBS...\r\n"
@wait "login: "
@if "%FibsLoginName%" == ""
@ echo "\r** Please login manually.\r\n** The connect script will resume after login is complete\r\nlogin: "
@else
@ if "%FibsPassword%" == ""
@ echo "\r** Please enter your password manually.\r\n** The connect script will resume after login is complete\r\nlogin: "
@ endif
@endif
@:Login
@passwordEntry 0
@if "%FibsLoginName%" != ""
@ send "%FibsLoginName%\r"
@ wait "\n"
@endif
@rem If we get a cmd prompt before a password prompt, then we must be doing a
@rem guest login!
@branch "Waiting for \"password: \"" "password: " Password "login: " Login "\n>" DoGuestLogin
@:Password
@passwordEntry 1
@if "%FibsPassword%" != ""
@ send "%FibsPassword%\r"
@endif
@wait "\n"
@passwordEntry 0
@branch "Waiting for command prompt" "login: " Login "authenticated." DoAuthenticated "\n>" DoNormalLogin
@:DoGuestLogin
@rem Must wait for registration before issuing the init commands, because
@rem normal commands don't work until registration is complete!
@ branch "" "\nYou are registered."
@:DoAuthenticated
@wait "\n>"
@:DoNormalLogin
<initfibs.scr